home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / WINE02BX.ZIP / LISP / MODES / SENDMAIL.ELC < prev    next >
Text File  |  1993-03-28  |  15KB  |  136 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:33:14 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/sendmail.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'sendmail)
  14. (defvar mail-default-reply-to nil "\
  15. *Address to insert as default Reply-to field of outgoing messages.")
  16. (defvar mail-yank-prefix nil "\
  17. *Prefix insert on lines of yanked message being replied to.
  18. nil means use indentation.")
  19. (byte-code "└┴!¼é┬└├!¼é┬└─!¼é┬┬ç" [boundp mail-abbrevs-loaded nil mail-mode-map mail-reply-buffer] 2)
  20. (defvar mail-send-actions nil "\
  21. A list of actions to be performed upon successful sending of a message.")
  22. (defvar mail-signature-file "~/.signature" "\
  23. File to be inserted at the end of a message. Usually, this file is called
  24. \"~/.signature\".")
  25. (defvar mail-insert-signature nil "\
  26. If T, insert automaticcally the file denoted by the variable
  27. `mail-signature-file' before sending a message.")
  28. (defvar mail-signature-inserted nil "\
  29. Non-nil means signature already inserted; don't reinsert it.")
  30. (defvar mail-mode-syntax-table nil "\
  31. Syntax table used while in mail mode.")
  32. (byte-code "¼è┴\n!├─┼#ê╞╟╚\"ê╔╩Mç" [mail-mode-syntax-table copy-syntax-table text-mode-syntax-table modify-syntax-entry 37 ". " autoload mail-aliases-setup "mail-abbrevs" mail-setup #[(to subject in-reply-to cc replybuffer actions) "┬ ê ┼ebê╟cêè½æ╔▒ê╩ ╠ed\"ê)¬â═ ê½ö`╩ ╨╔▒ê╤d\"ê*½ç╙╔▒ê╘«ü╓╔▒ê½ç╪╔▒ê½ç┌█ ╔▒ê½ç▌╔▒ê╔▒ê)½âdbê¼î¼ê¼ä▀┼!êαß!ç" [actions mail-send-actions mail-aliases-setup replybuffer mail-reply-buffer nil mail-signature-inserted "To: " to "\n" "    " fill-prefix fill-region newline cc opos "CC: " fill-region-as-paragraph in-reply-to "In-reply-to: " "Subject: " subject "" mail-default-reply-to "Reply-to: " mail-self-blind "BCC: " user-login-name mail-archive-file-name "FCC: " mail-header-separator set-buffer-modified-p run-hooks mail-setup-hook] 3]] 4)
  33. (fset 'mail-mode #[nil "└ ê┴┬!ê├┴─!ê┴┼!ê╞!ê╚    !ê\n ╠╬╨┴╥!ê┴╙!ê╘╓R╘╓R╫╪┘\"ç" [kill-all-local-variables make-local-variable mail-reply-buffer nil mail-send-actions mail-signature-inserted set-syntax-table mail-mode-syntax-table use-local-map mail-mode-map text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail" mode-name t buffer-offer-save paragraph-separate paragraph-start "^" mail-header-separator "$\\|^[     ]*[-_][-_][-_]+$\\|" run-hooks text-mode-hook mail-mode-hook] 4 "\
  34. Major mode for editing mail to be sent.
  35. Like Text Mode but with these additional commands:
  36. C-c C-s  mail-send (send the message)    C-c C-c  mail-send-and-exit
  37. C-c C-f  move to a header field (and create it if there isn't):
  38.      C-c C-f C-t  move to To:    C-c C-f C-s  move to Subj:
  39.      C-c C-f C-b  move to BCC:    C-c C-f C-c  move to CC:
  40. C-c C-t  move to message text.
  41. C-c C-y  mail-yank-original (insert current message, in Rmail).
  42. C-c C-w  mail-signature (insert signature file).
  43. C-c C-q  mail-fill-yanked-message (fill what was yanked).
  44. C-c C-v  mail-sent-via (add a sent-via field for each To or CC)
  45.  
  46. Button3  Popup menu with the above commands." nil])
  47. (byte-code "¼╓┴ ┬ \"ê─┼╞#ê─╟╚#ê─╔╩#ê─╦╠#ê─═╬#ê─╧╨#ê─╤╥#ê─╙╘#ê─╒╓#ê─╫╪#ê─┘┌#ê─█▄#ê─▌▐#ê┴ç" [mail-mode-map make-sparse-keymap set-keymap-parent text-mode-map define-key "?" describe-mode "" mail-to "" mail-bcc "" mail-cc "" mail-subject "" mail-text "" mail-yank-original "" mail-signature "" mail-fill-yanked-message "" mail-sent-via "" mail-send-and-exit "" mail-send button3 mail-mode-menu] 4)
  48. (defvar mail-mode-menu '("Mail Mode" "Sending Mail:" "----" ["Send and Exit" mail-send-and-exit t] ["Send Mail" mail-send t] ["Sent Via" mail-sent-via t] "----" "Go to Field:" "----" ["To:" mail-to t] ["Subject:" mail-subject t] ["CC:" mail-cc t] ["BCC:" mail-bcc t] ["Text" mail-text t] "----" "Miscellaneous Commands:" "----" ["Yank Original" mail-yank-original t] ["Fill Yanked Message" mail-fill-yanked-message t] ["Insert Signature" mail-signature t] "----" ["Abort" kill-buffer t]) "\
  49. Popup menu called by the function `mail-mode-menu'.")
  50. (fset 'mail-mode-menu #[(event) "└┴\n!!ê├ë ½ª╚@!½Ü@╔H╩=½å@¬î@╔H╦=½ä@Aë¼Z½ë╠??Iê½Ä╠;¡ä╧!Iê+╨─!ç" [select-window event-window event nil mail-mode-menu rest sig yank vectorp 1 mail-yank-original mail-signature 2 mail-reply-buffer mail-signature-file file-exists-p popup-menu] 5 "\
  51. Pop up the mail mode menu, defined by the variable `mail-mode-menu'." "e"])
  52. (fset 'mail-send-and-exit #[(arg) "└ ê┴p!ê\n¼ÿ├ ¼öè─┼╞ ╟\"!qê)╔=½â╩ ç╦╠p!!ç" [mail-send bury-buffer arg one-window-p window-buffer next-window selected-window not major-mode rmail-mode delete-window switch-to-buffer other-buffer] 4 "\
  53. Send message like mail-send, then, if no errors, exit from mail buffer.
  54. Prefix arg means don't delete this window." "P"])
  55. (fset 'mail-send #[nil "└ ¼à┴┬!¡╥├─!ê¼ì╞!½ç½â╔ ê╩╦!ê  ê½ì╬╧╨ÅêAë¼s└ ½û½Æ¼ë┴╙╘\"!½ì╒ ê¬ê╓╬!ê╫╪!ê├┘!ç" [buffer-modified-p y-or-n-p "Message already sent; resend? " message "Sending..." mail-signature-inserted file-exists-p mail-signature-file mail-insert-signature mail-signature run-hooks mail-send-hook send-mail-function mail-send-actions nil (byte-code "└    @@    @A\"ç" [apply mail-send-actions] 3) ((error)) buffer-file-name noninteractive format "Save file %s? " save-buffer set-buffer-modified-p delete-auto-save-file-if-necessary t "Sending...done"] 5 "\
  56. Send the message in the current buffer.  If the file denoted by the variable
  57. `mail-signature-file' exists, and the variable `mail-insert-signature' is
  58. non-nil, it is inserted at the end.  If `mail-insert-signature' is nil, your
  59. .signature file will not be inserted unless you do it explicitly with C-c C-w.
  60. If `mail-interactive' is non-nil, wait for success indication or error
  61. messages, and inform user.  Otherwise any failure is reported in a message
  62. back to the user from the mailer." nil])
  63. (fset 'sendmail-send-it #[nil "½à┴┬!¬ü├┴─!┼ëp    \n╦Äè    qê╠ ê═!êdbêh╬U¼â╬cêebê╧╨╤!╙Q!ê╘╙!ê╒╓!ê╫ ebê╧╪┘#½î`W½å╘╙!ê¬l┘ebê╧┌┘#½ä█▄!êebê╧▌┘#½à▐!êebê╧▀┘#½ƒαß!êΓîe}êπΣ!)!σ ÿ¼è╓yêµσ ╙▒êebê╧τ┘#½ä╘Φ!êebê╧Θ┘#½ä╘Ω!ê½ëè\nqê╠ ê))δ∞φedε∩!½ä/¬ü≡┼\n┼±≥»≤σ D?¡ü⌠#\"ê¡úè\nqêebê╧⌡┼┘#½å╘÷!ê¬s≈ ├U?¡å█°ed{\").ç" [mail-interactive generate-new-buffer " sendmail errors" 0 " sendmail temp" nil mailbuf delimline case-fold-search tembuf errbuf ((byte-code "└    !ê┬ !½ä└ !ê└ç" [kill-buffer tembuf bufferp errbuf] 2)) erase-buffer insert-buffer-substring 10 re-search-forward "^" regexp-quote mail-header-separator "\n" replace-match backward-char 1 point-marker "\n\n\n*" t "^Sender:" error "Sender may not be specified." "^FCC:" mail-do-fcc "^From:" require mail-utils mail-strip-quoted-names mail-fetch-field "From" user-login-name "Sender: " "^S:" "Subject:" "^Subject:[     ]*\n" "" apply call-process-region append boundp sendmail-program "/usr/lib/sendmail" "-oi" "-t" "-f" ("-oem" "-odb") "\n\n* *" "; " buffer-size "Sending...failed to %s"] 11])
  64. (fset 'mail-sent-via #[nil "èebê└┴\n┴Q!ê├yê─ ┼╞    ebê╩╦    ┼#¡á`╩╠    ┼#½å═╬!ê¬ä    bê`{╧╨\"ê)¬X,ç" [search-forward "\n" mail-header-separator -1 point-marker t nil to-line case-fold-search end re-search-forward "^\\(to\\|cc\\):" "^[^     \n]" backward-char 1 insert-before-markers "Sent-via:"] 5 "\
  65. Make a Sent-via header line from each To or CC header line." nil])
  66. (fset 'mail-to #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "To"] 2 "\
  67. Move point to end of To-field." nil])
  68. (fset 'mail-subject #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Subject"] 2 "\
  69. Move point to end of Subject-field." nil])
  70. (fset 'mail-cc #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "cc" t "to" "\nCC: "] 3 "\
  71. Move point to end of CC-field.  Create a CC field if none." nil])
  72. (fset 'mail-bcc #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "bcc" t "to" "\nBCC: "] 3 "\
  73. Move point to end of BCC-field.  Create a BCC field if none." nil])
  74. (fset 'mail-po